%%%%%%%%%%%%%%%%%%%%%
% aggregate_state.m %
%%%%%%%%%%%%%%%%%%%%%

number;

% Table of the aggregate state of the element. The state is given for normal
% conditions, i.e. a temperature of 20 C and a preassure of 1 atm. The %
% state is either solid, liquid or gas.  Radioactive elements are denoted %
% as a "separate" state (they are all solid). %

aggregate_state = {
'gas'
'gas'
'solid'
'solid'
'solid'
'solid'
'gas'
'gas'
'gas'
'gas'
'solid'
'solid'
'solid'
'solid'
'solid'
'solid'
'gas'
'gas'
'solid'
'solid'
'solid'
'solid'
'solid'
'solid'
'solid'
'solid'
'solid'
'solid'
'solid'
'solid'
'solid'
'solid'
'solid'
'solid'
'liquid'
'gas'
'solid'
'solid'
'solid'
'solid'
'solid'
'solid'
'radioactive solid'
'solid'
'solid'
'solid'
'solid'
'solid'
'solid'
'solid'
'solid'
'solid'
'solid'
'gas'
'solid'
'solid'
'solid'
'solid'
'solid'
'solid'
'radioactive solid'
'solid'
'solid'
'solid'
'solid'
'solid'
'solid'
'solid'
'solid'
'solid'
'solid'
'solid'
'solid'
'solid'
'solid'
'solid'
'solid'
'solid'
'solid'
'liquid'
'solid'
'solid'
'solid'
'radioactive solid'
'radioactive solid'
'gas'
'radioactive solid'
'radioactive solid'
'radioactive solid'
'radioactive solid'
'radioactive solid'
'radioactive solid'
'radioactive solid'
'radioactive solid'
'radioactive solid'
'radioactive solid'
'radioactive solid'
'radioactive solid'
'radioactive solid'
'radioactive solid'
'radioactive solid'
'radioactive solid'
'radioactive solid'
'radioactive solid'
'radioactive solid'
'radioactive solid'
'radioactive solid'
'radioactive solid'
'radioactive solid'
};

if size(aggregate_state) ~= ZMAX then
  fprintf (1, 'aggregate_state has %d elements\n', size(aggregate_state));
  break;
else
  fprintf (1, 'aggregate_state added ..\n');
end;
